home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form ListForm
- BackColor = &H00E0E0E0&
- Caption = "Style settings demo..."
- ClientHeight = 2868
- ClientLeft = 1140
- ClientTop = 1344
- ClientWidth = 3144
- Height = 3192
- Left = 1092
- LinkTopic = "Form1"
- ScaleHeight = 2868
- ScaleWidth = 3144
- Top = 1068
- Width = 3240
- Begin CommandButton Command1
- Caption = "Change item height.."
- Height = 540
- Left = 120
- TabIndex = 1
- Top = 1776
- Width = 2676
- End
- Begin VBTabList VBTabList1
- AlwaysBitmapped = 0 'False
- BackColor = 0 'Use system colors
- Bitmap01 = LISTDEMO.FRX:0000
- Bitmap02 = LISTDEMO.FRX:0122
- Border3D = -1 'True
- Caption = "1
- CaseType = 0 'None
- DataType = 2 'Text and picture
- DisableNoScroll = 0 'False
- DisplayMode = 0 'Auto. adjust
- ForeColor = &H00000000&
- Height = 1644
- Help = &H00000000&
- ItemHeight = 18
- Left = 132
- ModeTest = 0 'False
- MultipleSel = 0 'False
- NoRedraw = 0 'False
- ParentNotify = -1 'True
- PictureHeight = 16
- PictureWidth = 18
- PictureXMargin = 5
- PictureYMargin = 4
- Sort = -1 'True
- TabIndex = 0
- Text3D = 0 'No 3D
- TextAlignment = 2 'Left
- TextXMargin = 24
- TextYMargin = 2
- Top = 48
- UseHorzScrollBar= 0 'False
- UseTranspBitmap = -1 'True
- Prop71 = &H00000000&
- Width = 2652
- WinfileDDrop = -1 'True
- Prop72 = 0
- End
- Sub Command1_Click ()
- VBTabList1.ItemHeight = 30
- VBTabList1.SetFocus
- End Sub
- Sub VBTabList1_FileDropped (Files As Integer, ItemIndex As Long)
- MsgBox VBTabList1.DroppedFilename(Files - 1) + "-" + Str$(ItemIndex)
- End Sub
-